Top 10k strings from Jupiter (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 450 CSIZE 0,0
   1 440 END DEFine jupiter
   1 430   PAUSE 200
   1 420   CSIZE 3,1:AT 0,7:PRINT"JUPITER"
   1 410   INK 7
   1 400   FILL 0
   1 390   CIRCLE 70,40,4,.85,PI/8
   1 380   INK 2,0
   1 370   FILL 1
   1 360   NEXT i
   1 350    CIRCLE 50,i,r,.2,PI/2
   1 340    r=SQRT(30^2-(i-50)^2)
   1 330    INK RND(1 TO 7),RND(1 TO 7)
   1 32060 END DEFine 
   1 32050  PRINT#0,"Saved"!a$
   1 32040  DELETE a$:SAVE a$
   1 32030  IF dr=2:a$="mdv2_"&a$
   1 32020  IF dr=1:a$="mdv1_"&a$
   1 32010  LOCal a$:a$="jupiter"
   1 32000 DEFine PROCedure resave (dr)
   1 320   FOR i = 80 TO 20 STEP -3
   1 310   FILL 1
   1 300   CIRCLE 50,50,30
   1 290   stars
   1 28100 END DEFine p_alkutila
   1 28090  SCALE 100,0,0
   1 28080  OVER 0:UNDER 0
   1 28070  FILL 0:FLASH 0
   1 28060  PAPER#2,1:INK#2,7
   1 28050  PAPER#1,2:INK#1,7
   1 28040  PAPER#0,0:INK#0,7
   1 28030  WINDOW#2,448,200,32,16
   1 28020  WINDOW#1,448,200,32,16
   1 28010  WINDOW#0,448,40,32,216
   1 28000 DEFine PROCedure p_alkutila
   1 280 DEFine PROCedure jupiter
   1 260 END DEFine stars
   1 250   NEXT i
   1 240    POINT RND(170),RND(170)
   1 230    INK RND(1 TO 7),RND(1 TO 7)
   1 220   FOR i = 1 TO 300
   1 200   PAPER 0
   1 190 DEFine PROCedure stars
   1 170 p_alkutila
   1 160 jupiter
   1 140 p_alkutila:PAPER 0
   1 120 REMark ***********
   1 110 REMark * JUPITER *
   1 100 REMark ***********